CD Fun House 1/CD Fun House (Wayzata Technology).iso/•AdventureLand•/Adventures/HyperQuest 1.03 •••/HyperQuest 1.03 еее/card_27851.txt

Text File | 1990-10-02 | 9KB | 369 lines

-- card: 27851 from stack: in.03 –µ–µ–µ
-- bmap block id: 6103
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
  global chase
  send cardOpened to background
  if chase<>0 then hortaChase
end openCard

on move
  global direction,blastDam,holeDam,chase,blasting
  if direction = "east" then
    beep
    put "You can't swim in this cave, sorry." into field 3
    exit move
  end if
  if direction = "west" or direction = "down" then
    if holeDam then
      go to card id 27307
    else
      go to card id 26200
    end if
    exit move
  end if
  pass move
end move


on closeCard
  set the cursor to 4
  put "" into field 3
end closeCard

on take
  global object,carried
  -- remember to update carried if you do not pass take
  pass take
end take

on drop
  global object,dropRoom,carried,holeDam
  answer "Drop object where (dam, room, or reservoir)?" with "reservoir" or "dam room" or "on dam"
  if it="room" then
    if holeDam then
      put "27307" into dropRoom
    else
      put "26200" into dropRoom
    end if
  end if
  if it="reservoir" then
    put "Splash!" into field 3
    put "28895" into dropRoom
  end if
  -- remember to update carried if you do not pass drop
  pass drop
end drop

on use
  global object,carried
  -- update carried if use results in loss of object
  pass use
end use

on hortaChase
  show card field floodtime
end hortaChase




-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp



-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=195 right=231 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=195 right=231 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=160 right=196 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=89 top=160 right=196 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=112 top=125 right=161 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
  global takeFlag,examFlag,object,cardID
  put the name of the target into object
  if takeFlag = true
  then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=179 top=169 right=266 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a huge resevoir filled with water. Under the water a small object " into field 3
    put "is glowing on the bottom the reservoir." after field 3
    put false into examFlag
  else
    if takeFlag then
      put "You take a drink of nice cool water -- ahhhhh!" into field 3
      put false into takeFlag
    else
      put "east" into direction
      send move to card id cardID
    end if
  end if
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=98 right=133 bottom=38
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID,takeFlag
  if examFlag then
    put "a tunnel leading north from the dam room." into field 3
    put false into examFlag
  else
    put false into takeFlag
    beep
    put "Get off the dam first." into field 3
  end if
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=1 top=137 right=263 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global examFlag,direction,cardID
  if examFlag then
    put "the dam room." into field 3
    put false into examFlag
  else
    put "west" into direction
    send move to card id cardID
  end if
end mouseUp



-- part 42 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Floodtime
----- HyperTalk script -----
on mouseUp
  global chase,blastWall,hortaDead,flood,holeDam,oldRoom,newRoom,prevID
  set the cursor to 4
  hide card field floodtime
  if blastWall="false" then
    put true into flood
    put 29230 into oldRoom
    put 29888 into newRoom
    send roomChange to background
    put 2539 into oldRoom
    put 31944 into newRoom
    send roomChange to background
    put 30913 into oldRoom
    put 33443 into newRoom
    send roomChange to background
    put 26200 into oldRoom
    put 33443 into newRoom
    send roomChange to background
  end if
  put true into holeDam
  put true into hortaDead
  put 0 into chase
  put 28289 into prevID
  go card id 28289
  show card button id 17 of card id 7465
end mouseUp


-- part contents for background part 25
----- text -----
Top of Crystal Dam
(looking north)

-- part contents for card part 42
----- text -----

You quickly scale the side of the crystal dam.  The Horta tries to follow but the crystal material of the dam dissolves away on contact with the Horta's body, making it impossible for it to follow you.  The Horta roars loudly as it struggles frantically to climb the dam, only to find itself melting a hole futher into the crystal wall.
     Suddenly, a mighty gusher of water blasts the Horta out of the hole in the dam and through the west door of the room below.  The thunderous roar of water is deafening as the contents of the huge reservoir to the east gush forth into the room below.  The room below begins to fill with a swirling torrent of water, but quickly the rush of water subsides and the water drains out the west door.
     Within minutes, the room below to the west is empty (although still quite wet), and the reservoir to the east is empty except for puddles of water lying in small depressions.  In one of these puddles rests a glowing gem.
     It looks like you can easily climb down either side of the breached dam, but I'd be careful not to slip on the wet crystal walls.

Click to continue...

-- part contents for background part 24
----- text -----
You are on top of the crystal dam.  The dam is about two feet wide at the top.  Down to the west is a large room.  To the east is a very large reservoir filled with water.  You can see something glowing on the bottom of the reservoir -- too bad you can't swim.





-- part contents for background part 36
----- text -----
1